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Version: *v04-000' 


MARR RRRRASASRALALAARA SALA AREA SAAR RESERE ERAS ASE S ERE SERRE RRR ARERR ARERR ERA ESS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE JS FURNISHED —s - LICENSE AND MAY BE USED AND cor tte 
DANCE THE RMS OF SUC C THE 


® 
& 
® 
® 
® 
® 
* 
® 
te 
NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
TRANSFERRED. : 
cs 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* 
* 
cd 
® 
® 
® 
* 
® 


AND eee NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


AAAAAAAAAAAAAAA AAA AAA 
eee ee ee eee eeeaeeeee eens 

o 
=02 
x 
m 
» 
v 
m 
» 
2 
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module SFDLDEF3; 


Ay These fields are found in FDLSAB_CTRL 
® 
aggregate FOLDEF3 union prefix FDL$; 
FOLDEF_BITSO structure; 
TATUS bitfield mask Length 3; 
WARNING bitfield mask; 
PRIMARY bitfield mask; 
NEWPRI bitfield mask; 
ECONDARY 34 hb mask; 
INITIAL bittield mask; 
OMMENT bitfield mask; 
LINECM! bitfield mask; 
PCALL bitfield mask; 
CL bitfield mask; 
STRING SPEC bitfield mask; 
SED_STRING bitfield mask; 
APOST_PRES bitfield mask; 
UOTE PRES bitfield mask; 
REPARSE bitfield mask; 
LT_PRES bitfield mask; 
STVACID bitfield mask; 
GCALL bitfield mask; 
FULLGEN bitfield mask; 
DEALLOC bitfield mask 
end FDOLDEF_BITSO; 
i Codes found in FDL$GL_PRIMARY 
® 
constant ( 
set! PRIMARYS 
. ACCESS 
‘ ACL 
» ANALA 
. ANALK 
. AREA 
» CONNECT 
. DATE 
7) ' soe 
- ‘IDENT’ 
« JNL 
. KEY 
- RECORD 
. SHARING 
. SYSTEM 
. TITLE 
/*e LAST PRIMARY 
/e 


PRITAB_SIZE 
§ equals~0 increment 1 prefix FOL tag $C; 


/* Bits defined for FDLSAB_PRIMCTRL 


ye code for processing 


p yeretne message has been issued for this secondary 
a 


Primary has been parsed 
° new primary has been parsed 
ithe: has been parsed 
tial pass 


tte comment has been detected 


Line comment has been detected 

This is an EDF Parse call 

Called byt ., a ys utility 

An FOL S 

FOL C FRING. A been set up 

- apostrophe was found by the P 
oS pyee- mark was found by t 

Do peree. into a parse 


n 
The Brit ro SPEC argument was present 


FOLSGL STHUNBTR | is valid 
This iS an EDF Prmstote Ba 
Generate the full FOL 


Make FDL SS$CHECK “BLOCKS” Seat Lecote the 
RMS control blocks after it checks them 


/* Dummy - primary$ 

/* Acce 

/* hecoss Control Lists 
/* Analysis_of_area 

/* Analysis_of_key 


M 
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/* 


FOLDEF _BITS1 structure; 
ACTESS bitfield mask; 
ACL bitfield mask; 
ANALA bitfield mask; 
ANALK bitfield mask; 
AREA bitfield mask; 
CONNECT bitfield mask; 
DATE bitfield mask; 
FILE bitfield mask; 

IDENT’’ bitfield mask; 

JNL bitfield mask; 
KEY bitfield mask; 
RECORD bitfield mask 
SHARING bitfield mask; 
SYSTEM bitfield mask; 
TITLE bitfield mask; 

end FDLDEF _BITS1; 


Access primary 


constant ( 
DUMMY _SECONDARYS 
FACBIO 


ses © ft & & & 
inal 
> 
2 
= 


FACUPD 
ACL 
- ACE 


- RECL 


$C; 
prefix FDL tag st; /* 


Secondary codes for each 
These codes are found in 
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Singie field switch for YES - NO qualifiers 


constant FALSE equals 0 prefix FDL tag 
constant TRUE equals -1 


preety 
DLSGL_SECONDARY 
Qualifiers for each secondary are Listed seperatly 


Codes for Analysis_of_area primary 


Access 

Access Control List 
Analysis_of_area 
Analysis_of_key 


REMEMBER TO UPDATE XXX _ BEG AND XXX END MARKERS IF AN ATTRIBUTE IS 
ADDED/ SUBTRACTED ONTO/OFF EITHER ERD OF A PRIMARY SECTIO 


pyaay.peconderys 
Block 1/0 only 
Deletes 

Gets 

Pu 


ts 
Record and Block I/0 
Truncate 
Updates 


Entry 


Reclaimed_space 
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ses 8 8©@ 8 &© 8&8 @& 


ee @eeeeeeeeseeseeess ee 8 & 8 & & & 


Analysis_of_key primary 
DFIL 
DKC 


SEQACC 
Codes for Area primary 
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Data_fill 
Data_key_compression 
Data_record_compression 
Data_record_count 
Data _space_occupied 
Deletions 

Depth 
Duplicates_per_value 
Index_compresston 
Index_ 

Index space_occupied 
LevelT_record_count 
Mean_data_length 
Mean_index_length 
Random_accesses 
Random_inserts 
Sequenfial_accesses 


Allocation 
Best_try_contigous 
Buckét_size 

Cont igous 
Exact_position 
Extend 

Position 

Voulme 


Asynchronous 
Block_10 
Bucket_code 
Contex 
End_of_file 
Fill_bickets 
Fast_delete 
Key_of_reference 
Key_greater_equal 
Key greater than 
Key_lCimit 
Locate_mode 
Lock_on_read 
Lock_on_write 
Manual _unlockin 
Mult ibTock_coun 
Mul itbuffer_count 
Nolock 
Nonexistent_record 
Read_ahead 
Read_regardless 
Timeout_enable 
Timeout_period 


wr? ¢&ce vy @ @ @ 


ee @*®e @eeeee#eeet+ts8sse#ee#+#ee#e#es# # #8 &©®& #%& &©* & &*§ 8% © ® © &©& © © © © @& ®& 
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Codes for Date primary 


BACKUP 
CREAT 
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uncate_on_put 
_cancel_control_o 
-upcase. nput 


=purge, <type ahead 
rea =hogs ho 

greed 77°F lter 

te 

t. tai record 
té_behind 


37e0 tt > 
‘0! 


cccHo-t 1-1-4 


pee 
Creation 
Experation 
Revision 


Allocation 

Best sft? contiguous 
Bucket_size 

Ploatee size 
Context” 

Contiguous 
Create_if 

Default name 
Deferred_write 
Delete_on_close 
Directory_entry 
Erase_on_delete 
Extension 
Global_buffer_count 
MT_blotk_size” 
MT-current_position 
MT-not_eof™ 
MT_protection 
MT~rewind / MT_open_rewind 
MT“close_rewind 
Max_record_number 
Rextaize. version 


ebackhus 

Non_ file structured 
Output_file_parse 
Organization 
Owner 
Print_on_close 
Protection 

Read. check 
Revisio 
Sequential_only 
Submit_on_Close 
Superscede 
Temporary 
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ss &© © 
<£ 
2 


/* Codes for Journal primary 


/* 


sees eee 
& 
= 
= 
5 


/* Codes for Key primary 
CHANGE 
DAREA 


ser es fe © Se &e Se Se 8& SF SF SF S& S&F & F 
— 
nn 
-— 
— 
- 


SEGTYP 
/* Codes for Record primary 
BLKSPN 
CARCTRL 
VFCSIZ 
FMT 
SIZE 
/* Sharing primary 
SHRDEL 


ee es 8 8 


ese eee 
nw 
= 
»@ 
z 
= 
— 


SHRUP I 
/* Codes for System primary 
DEVICE 


/* 
/* 
/* 
/ 


ot 
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pruncaty on, tt eee 
User_file_open 
Window _size 

Write check 


Arter_image 
After_name 
Audit trail 
Audit_name 
Before_image 
Before_name 
Recovery_unit 


Changes 

Data_area 

Data_fill 
Data_key_compression 
Data_record_compression 
Duplicates 
Index_area 
Index_compression 
Index_fil 
LevelT_index_area 
Name 

Mut rkey 

Null_value 

Prologue version 
Segment Tength 
position 

type 


Block_span 
Carrage_control 
Control_field_size 
Format 

Record_size 


Deletes 

ets 
Multi-stream connects 
Dissallow sharing 
Puts 


Updates 
User provided interlocking 


Device 


-_ 
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- SOURCE /* Source 
» TARGET /* Target 
ot THE LAST SECONDARY FOLLOWS: 
SECTAB_ is 
j equals 0 increment 1 prefix FDL tag $C; 
/* The following are markers which are useful to FDLSGENERATE 


constant ACCESS_BEG equals FDLSC_FACBIO prefix FDL$ tag C; 
constant ACCESS_END equals FDLSC_FACUPD prefix FDL$ tag C; 


constant ACL_BEG equals FDLSC_ACE prefix FDL$ tag C; 
constant ACL_END equals FDLS$C_ACE prefix FDL$ tag C; 


constant ANALYSIS_OF_AREA_BEG equals FDLS$C_RECL prefix FOL$ tag Ci | 
constant ANALYSIS _OF_AREA_END equals FDLSC_RECL prefix FDL$ tag C 

constant ANALYSIS_OF_KEY_BEG equals FDLSC_DFIL pes FOLS * 3 

constant ANALYSIS_OF_KEY_END equals FDLSC_SEQACC prefix FOL$ tag C; 

constant AREA_BEG equals FDLS$C_ALLOC prefix FDL$ tag C; 
constant AREA_END equals FDLS$C_VOLU prefix FDL$ tag C; 

constant CONNECT_BEG equals FDLSC_ASY prefix FOL$ tag C; 

constant CONNECT_END equals FDL$C_WBH prefix FDLS$ tag C; 

constant DATE_BEG equals FDLS$C_BACKUP prefix FDL$ tag C; 

constant DATE_END equals FDLSC_REV prefix FDL$ tag C; 


Bee Se Se Be Se Be Se Se Se Se Ge Se Se Se Se Se Se Se Se Se FH Se Se Se Se Se ee Se Ge eae 


constant FILE_BEG equals FDLSC_ALL pretis FOLS t 
constant FILE-END equals FDLSC_WRITEC prefix POLS" ess C3 


constant JOURNAL_BEG equals FDLSC_AFTIM prefix FDL$ tag C; 
constant JOURNAL_END equals FDLS$C_RU prefix FDL$ tag C; 


constant KEY_BEG equals FDLSC_CHANGE prefix FDL$ tag C; 
constant KEY_END equals FDLSC_SEGTYP prefix FDLS$ tag C; 


constant RECORD_BEG equals FDLS$C_BLKSPN prefix FDL$ ta a 
constant RECORD_END equals FD SIZE prefix FDL$ tag 


L$C_ 
constant SHARING_BEG equals FDLSC_SHRDEL prefix FDL$ tag C 
constant SHARING_END equals FDLS$C_SHRUP! prefix FDL$ tag C 
LSC 
L$C_ 


~ 
constant SYSTEM_BEG equals FDLSC_DEVICE prefix FDOL$ tag C 
constant SYSTEM_END equals FDLSC_TARGET prefix FDL$ tag C 


/* Qualifiers 
/* These codes are found in FDLSGL_QUALIFIER 


Qualifiers for the Area secondary 
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constant ( 


. *s © ee &© 8&8 & ss 8&8 © ee © ee &© & & 


es © 8 &© 8 © 


NOPOS 
VIRPOS 
Qualifiers for the Record secondary 


Qualifiers for the Journal secondary 
IF_IN 

NE 

NEVER 

Qualifiers for the System secondary 


IAS 
RSTS 
M 


MPLUS 
T 


TRAX 
VMS 


Qualifiers for the File secondary 
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Any Cylinder 
Cluster 


None 

Carrage return 
Fortran 

Print 
UNDEFINED 
FIXED 

VARIABLE 


If_in_recovery_unit 
NecesSary_to_write 
Never_RU_Journal 


E 
1M 
1M-PLUS 
11 
MS 


VAX/V 


SEQUENTIAL 
RELATIVE 
INDEXED 
HASHED 


STRING 
INT 
BIN 
INT4 


- BNG 
» IN8 
. BNB 
- PAC 
) equals 0 increment 1 prefix FDL tag $C; 
Constants for FDLGENTAB 
eo 
constant ( 
FAB 
- RAB 
» KAB 
- NAM 
) equals 0 increment 1 prefix FDL tag $C; 
constant ( 
D 
. BYTE 
- WORD 
- LONG 
- QUAD 
- OCT 
- SWITCH 
» STRING 
- QUALIFIER 
» SPECIAL 
) equals 0 increment 1 prefix FDL tag $C; 
se Parse data stuff 
ee 
/te These structures must be contiguous so that EDF can access them from 
oes one point. If they need to be changed consult with the owner of edf 
ee 
{tt meee eeeeeoeeoeeoeeeoeeoeoeoen 
/te FOLSAL_BLOCK: H ctrl H 
/t e H eeecece eeececeeoceooecoces oo } 
/te : pcall : 
{ee | meme w wow w wow oeoeecoooe } 
/ee : primary : 
/ ee H eeeeeceeean eeeeeeeceeseoon H 
/ee : prinum H 
Fee a : 
/+* ' prictrl ' 
/ee ; emer eeceree monmeceeasonoeoconce ; 
/ee : secondary H 
/ee ; seeeeceeeeooeeooooeen eececcee H 
/ee } secnum ' 
/ ee ; eererocer er een ec cewoee ne eae ; 
/ee : H 
jer fewm—w=  — eeeecce ; 


nO UU FW He | CO 
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i date/time quadword -| 
[one string desc ----- 
tone comment desc ----! 
jen-- Line desc --==- 
[on- upcased desc ----! 
line count 
fone item desc ----! 
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g 
yw 
@ 
o 
o 
ad 
7 
- 

u 

o 

f 

4 

‘ 

a 

ft 


~~ 
oe 
a 
— 


13 
14 
15 
16 
17 
18 
19 
20 
21 
22 


24 


26 


28 


30 


32 
33 


35 = FDLS$K_BLOCK_END 


a 
e 
° 
. 
e 
. 
- 
. 
o 
. 
o 
. 
= 
. 
* 
. 
o 
. 
o 
. 
e 
. 
. 
. 
. 
7 
. 
. 
oe 
. 
. 
. 
. 
. 
- 
. 
. 
. 
°. 
. 
e 
. 
o 
- 
° 
. 
. 
. 
a 
. 
oe 
. 
e 
. 
. 
. 
e 
. 
. 
- 
a 
. 
e 
. 
. 
. 
. 
. 
* 
. 
* 
. 
. 
. 
. 
. 
o 
. 
e 
7 
e 
. 
a 
. 
. 
. 
o 
. 
« 
. 
e 
. 
e 
. 
e 
7 
2 
. 
© 
* 
oe 
. 
. 
. 
* 
. 
. 
. 
. 
. 
. 
. 
7 


—— _ 
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jee 
Jee 


/** FDOLSK_BLOCK_END equals the offset to the last longword in FDLSAL_BLOCK 


{ee 


constant CTRL equals 0 prefix FOL tag $L; 
constant PCALL equals FOLSL_CTRL + 1 prefix FOL tag $1; 
constant PRIMARY equals FDOLSL_PCALL + 1 prefix FDL tag $L; 
constant PRINUM equals FDLSL_PRIMARY + 1 prefix FOL tag $L; 
constant PRICTRL equals FDLSL_PRINUM + 1 prefix FOL tag $L; 
constant SECONDARY equals FDLSL_PRICTRL + 1 prefix FOL tag $L; 
constant SECNUM equals FDLSL_SECONDARY + 1 prefix FDL tag $L; 


/** FDLSK-SCTRL_VEC is the number of bits_in FDLSAB_SECC 


/** FDOLSK_SCTRL_LONG is the number of Llongwords in PPL Bae SeCerm. 
/** Each Tongword has enough bits to map 32 unique Secondary attributes 


constant SCTR' _LONG equals 6 prefix FDL tag $K; 
constant SCTRL_VEC equals FDLSK_SCTRL_LONG * 32 prefix FOL tag $K; 
constant SECCTRL equals FDLSL_SECNUM + 1 prefix FDL tag $A; 
constant QUALIFIER equals 
FDLSA_SECCTRL + FDLSK_SCTRL_LONG prefix FDL tag $L; 

constant NUMBER equals FDOLSL_QUALIFIER + 1 prefix FDL tag $L; 
constant SWITCH equals FOLSL_NUMBER + 1 prefix FDL tag $L; 
constant OWNER UIC equals FDOLSL_SWITCH + 1 prefix FDL tag $L; 
constant SPARET equals FDL$L_OWNER UIC + 1 prefix FOL tag $L; 
constant PROTECTION equals FDOLSL_SPARET + 1 prefix FOL tag $L; 
constant FID1 equals FDLSL_PROTECTION + 1 prefix FDL tag $L; 
constant pice equals FOLSL_FID1 + 1 prefix FDL tag $L; 
constant FID equals 4 testy + 1 prefix FDL tag $L; 
constant DATE TIME equals FDLSL_FIDS + 1 prefix FDL tag $0; 
constant STRING equals FDL$Q_DATE TIME + 2 prefix FDL tag $0; 
constant COMMENT equals FDL$Q_STRING + 2 prefix FOL tag $0; 
constant LINE equals FDL$Q_COMMENT + 2 prefix FOL tag $0; 
constant UPCASED equals FDL$Q_LINE + 2 prefix FOL tag $0; 
constant STMNTNUM equals FDL$Q_UPCASED + 2 prefix FOL tag $L; 
constant ITEM equals FDOLSL_STMNTNUM + 1 prefix FDL tag $0; 
constant GCALL equals FDLSQ_ITEM + 2 prefix FDL tag $L; 
constant BLOCK_END equals FDLSL_GCALL prefix FOL tag SK; 

/* Misc. 

/* 

fe Max size of the fdl Line 
constant MAXLINE equals 1024 prefix FOL tag $K; 
constant CLEAR equals 0 prefix FDL tag $C; 

end FOLDEF3; 


end_module $FDLDEF3; 


eo I 


Sete Se ee Se Ge Se ee Se ee Hee SH ee SH ee Hee Be ee Se ee 


017 AH-BT1i3A-SE MENT CORPORATION 
| A 


ND PROPRIETARY 


VAX/VMS V4.0 ; 


